   1 clear 
   2 NT=2
  10 print "REMEMBER GAME";print 
  11 print "COMPUTER WILL GIVE YOU A"
  12 print "NUMBER."
  15 print 
  16 print "YOU THEN PUSH THAT "
  17 print "NUMBER ON THE KEYBOARD.";print 
  20 print "THEN THE COMPUTER WILL"
  21 print "ADD ANOTHER ONE.";print 
  24 print "YOU THEN PUSH 'BOTH' IN"
  25 print "SEQUENCE"
  28 print 
  29 print "EVERY TIME YOU ENTER THE"
  30 print "RIGHT SEQUENCE ANOTHER"
  31 print "NUMBER IS ADDED TO THE"
  32 print "SEQUENCE.";print 
  35 print "if YOU MISS THREE SEQUENCES"
  36 print "THE GAME IS OVER."
  37 for J=1 to 1500
  38 next J
  84 J=0
  85 Z=3
  86 clear 
  87 S=0
  88 B=0
  89 NT=5
  90 B=1
 100 A=rnd (4)
 111 Q=B
 120 @(B)=A
 121 clear 
 130 NT=0;print ;print ;print ;NT=5;print #12,@(B),
 140 for M=1to B
 150 C=KP-48
 151 MU=C
 160 if C#@(M) S=S+1;goto 1000
 165 next M
 166 for N=1 to 100
 167 next N
 171 clear 
 172 if U=1 M=B;L=B
 173 K=0
 174 for L=1to Q
 175 NT=20;print #1,@(L),;NT=5
 176 for V=1 to 200
 177 next V
 178 K=K+1
 179 if K=20print ;print ;K=0
 180 next L
 181 B=B+1
 182 S=S+1
 190 goto 100
1000 print ;print ;print "WRONG!"
1001 for N=1 to 250
1002 next N
1004 S=S-1
1005 clear 
1010 Z=Z-1
1020 if Z<1print "GAME OVER!";goto 3000
1025 print "YOUR SCORE=",#1,S
1026 print 
1050 goto 5000
3000 print
3010 print "FINAL SCORE=",#1,S
3011 if S>J J=S
3012 print
3013 print "TODAY'S HIGH SCORE=",#1,J
3020 print
3030 print "LET'S PLAY AGAIN O.K.?"
3031 print 
3032 print "0=REVIEW"
3033 print "1=REPLAY"
3040 if &(23)=8 goto 85
3045 if &(22)=16 Z=Z+2;G=1
3060 goto 3040
5000 for U=1to B
5010 print @(U)
5020 next U
5025 if G>0 G=0;goto 3030
5030 goto 140
:return 